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AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 
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RRR 

RRR 

RRR 

RRR 
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RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 
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**F ILE*®1D*®PASUNDEF I 
PPPPPPPP AAAAAA SSSSSSSS$ UU UU NN NN DDDDDDDD  EEEEEEEEEE FFFFFFFFFF  IIIIII 
PPPPPPPP AAAAAA SSSS5SSS UU UU NN NN DDDDDDDD  EEEEEEEEEE FFFFFFFFFF  IIIIII | 
PP PP AA AA SS UU UU NN NN DD DD EE FF II | 
PP PP AA AA 5S UU UU NN N DD DD EE FF II 
PP PP AA AA 5S UU UU NNNN NN DD DD EE FF 1] | 
PP PP AA AA 5S UU UU NNNN NN DD DD EE FF I] | 
PPPPPPPP = AA AA SSSSS$_—-UU UU NN NN NN DD DD EEEEEEEE FFFFFFFF I] 
PPPPPPPP = AA AA $SSSSS__—-UU UU NN NN NN DD DD EEEEEEEE  FFFFFFFF I] 
PP AAAAAAAAAA $$ UU UU NN NNNN DD DD EE FF 1] 
PP AAAAAAAAAA $$ UU UU NN  NNNN OD DD EE FF 1] 
PP AA AA SS UU UU N NN DD DD EE FF II pee 
PP AA AA SS UU UU NN NN DD DD EE FF 1] aed 
PP AA AA SSSSSSSS$ | UUUUUUUUUU ON NN DDDDDDDD  EEEEEEEEEE FF LIIII1 ‘ 
PP AA AA $SSSSSSSS | _UUUUUUUUUU NN NN DDDDDDDD  EEEEEEEEEE FF HII ea 
LL eeeee SSSSSSSS 
LL eeeee 5555555 
LL 1] SS 
LL I] S$ 
LL I] 5S 
LL I] $$ 
LL 1] SSSSSS 
LL I] SS5555 
LL I] $$ 
LL 1] 5S 
LL I] 55 
LL 1] $$ 
LLLLLLLLLL «ILIIIT «= SSSSSSSS 
LLLLLLLLLL «©=—sTII1) «© SSSSSSSS 
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(6) 201 PASSUNDEFINED_H = Return true if H_floating argument is reserved 
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1-00) . . att fs 4 9g ig [;PASRTL.SRC CIP ASUNDEF 1.MAR; 1 ° (1) 


1-001 - Original. SBL 6-Nov-1980 : 


8 1 TITLE PASSUMOEF INED - Return true if ecgunens is reserved operand 
09 ¢ - IDENT 1-001 ; File: PASUNDEFI.MAR Edit: § [1001 
3 ¢ S eecececceccceees PAARASAAAAAAAZAELASASAESLESESER EARS ER RE SERRA SRSA R REESE EERE ESE LASS SC 
3* * 
000 § z* COPYRIGHT (c) 1978, 1980, 1982, 1984 * 
9000 8 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. ’ 
44 1% :* ALL RIGHTS RESERVED. * 
5 * 
0000 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
4 1 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
00 15 ;* INCLUSION OF THE ABOVE gtk NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER gL NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS’ HEREBY * 
4444 1g 3* TRANSFERRED * 
7* ® 
0000 18 ;* He en ae IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOUL NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | 
i444 $9 ‘* CORPORATION. * 
o * | 
0000 3 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR ee OF ITS * 
0000 235 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 
0000 24 38 . 
0000 25 :* * 
44 $8 3 'MARARRARAAABRAASAASLAAAASAELASLASAES SERRE RRRRR SEER RRERE RE RE RE SERRE RRR R RRR ARERR RRR AS 
0000 28 
0000 29 34+ 
0000 30 ; FACILITY: Pascal Language Support 
0000 31 ; 
0000 $$ ; ABSTRACT: 
0000 33 
0000 34 ; This module contains four routines, one for each floating data 
+444 3 : type, which return true if their argument is a reserved operand. | 
444 $ : ENVIRONMENT: Runs at any access mode, AST Reentrant 
9000 39 : AUTHOR: Steven B. Lionel, CREATION DATE: 6-Nov-1980 | 
0000 41 : MODIFIED BY: | 
0000 X: : 
45 ; 
44; 


er oe inte - Return true if argument is reserved op a dat Bs 9 91 gf: $3 AX/VMS Macro V04-00 Page 3 
1 1 DECLARATIONS 6-SEP=1984 PASRTL.SRCJPASUNDEFI.MAR;1 (2). 
33 ‘$ -SBTTL DECLARATIONS 
48 : LIBRARY MACRO CALLS: 
$0 49 ; 
090 9 ; NONE 
4 ¢ > EXTERNAL DECLARATIONS: 
0000 54 -DSABL GBL : Force all external symbols to be declared 
0000 2? ; NONE 
000 § 3 
$88 2 3; MACROS: 
00 8 ; 
0000 59; NONE 
0000 60 ; | 
0000 61 ; EQUATED SYMBOLS: | 
0000 6¢ : 
0000 63 ; NONE 
0000 64 ; 
0000 65 ; OWN STORAGE: 
0000 66 ; 
0000 67 ; NONE 
0000 68 ; 
i$ ° 3 PSECT DECLARATIONS: 
00000000 71 -PSECT _PASSCODE PIC, USR, CON, REL, LCL, SHR, - 
464 ie EXE, RD, NOWRT. LONG 


—____—- 
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| 


' 
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A: -SBTTL PASSUNDEFINED_F = Return true if F_floating argument is reserved 
FUNCTIONAL DESCRIPTION: 


This procedure returns BOOLEAN TRUE (1) if its argument is a reserved 
floating operand, otherwise BOOLEAN FALSE (0). 


; CALLING SEQUENCE: 
Result.wv.v = PASSUNDEFINED_F (Single.rf.r) 
FORMAL PARAMETERS: 


z>4 
mc 
ve 


Po 

ce 

zc 
3 | “DOO WOODOCOCCOCOCOOOOOOO OCODWDODWDOODODMOD VIN 1 


OOOWoOOoooooeoeso 74 
SOOQooooooooo ms 


VW NENMNMOOCOOCOCOCCOOCOOCOOCOOCOOOCOOOOOOOOOOOOOOOOoOO 


Single - F_floating argument 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
; ROUTINE VALUE: 


1 if the argument is a reserved operand 


0 otherwise 
; SIDE EFFECTS: 


-ENTRY PASSUNDEFINED_F, “M<> ; Entry point 


Initially FALSE 

Test for longword access 
nS it reserved? 

0 


Yes 
End of routine PASSUNDEF INED_F 


T @4 (AP) 
CMPZ2V #7, #9, @4(AP), #*X100 
BNEQ 108 
INCL RO 

10$: RET 


04 B 
00000100 8F 04 BC 09 8 
5 


SOOO SCOOSOSOSOSOSOSOOSOSOSOSOSOSOOOOSOOOOOOOOOOOOOOOCOO 
MEUM CO ODNAMNE WN $9 OD NAME WN 0 ODNAUES WN OOONOUW TH. 


SOOCSCSCOOSSOSOSSOSOSOSOSOSOSOSOOOSOOSOOOOCOSOSoO 
——-DOOOCSCOOOOCoOoCoOooooooooooooooo 
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a ~SBTTL PASSUNDEFINED_D = Return true if D_floating argument is reserved 
; FUNCTIONAL DESCRIPTION: 


This procedure returns BOOLEAN TRUE (1) if its argument is a reserved 
floating operand, otherwise BOOLEAN FALSE (0). 


CALLING SEQUENCE: 
Result.wv.v = PASSUNDEFINED_D (Double.rd.r) 
FORMAL PARAMETERS: 
Double = D_floating argument 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE | 
ROUTINE VALUE: | 


—e 
za, 
mec 
o- 


a a kk tk tk at ts 8 8 es CO 


PVPS B™ B™ BS BS BS EAA nonononononononun 


nn 


1 if the argument is a reserved operand 
0 otherwise 


SIDE EFFECTS: 


Bee Se Se Se Se Se Se Se Ge Se Ge Se Se Se Se Se Se Se S- Ce Se Se Se Se Se Se Ge Se 
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FP DPOM POOP A AAAAAAAA AAA AOAAAASAA OOOO OAO OOO AAA 
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0000 «ENTRY PASSUNDEFINED_D, “M<> ; Entry point 
} 
50 04 6C 7D mMOva a4(AP), RO ; Test for quadword access 
50 D4 CLRL R : Initially FALSE 
00000100 8F 04 8C 09 O7 ED CMPZV «#7, #9, @4(AP), #*°X100 ; Is it reserved? 
02 12 BNEQ 108 ; No 
50 (6 INCL RO ; Yes ; 
04 10$: RET ; End of routine PASSUNDEF INED_D 
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5-001 PASSUNDEF INED_G = aSturn true if G float ay ta ae: PASRTL.SRCJPASUNDEF!1.MAR;1 . (5) | 
0 4 133 aa -SBTTL PASSUNDEFINED_G = Return true if G_floating argument is reserved 
6 4 191 3; FUNCTIONAL DESCRIPTION: 
02D 188 3 This procedure returns BOOLEAN TRUE (1) if its argument is a reserved 
° ° 196 3 floating operand, otherwise BOOLEAN FALSE (0). | 
8 4 196 3; CALLING SEQUENCE: 
op 4 198 3 Result.wv.v = PASSUNDEFINED_G (Double.rg.r) 
88 4 176 ; FORMAL PARAMETERS: 
002D 7 3 Double - G_floating argument 
002D 173; 
002D 174 ; IMPLICIT INPUTS: 
002D 175; 
002D 176; NONE 
002D 177 ; 
002D 178 ; IMPLICIT OUTPUTS: 
002D 179 ; 
002D 180; NONE 
002D 181; 
002D \8¢ 3; ROUTINE VALUE: 
002D 183; 
002D 184 ; 1 if the argument is a reserved operand 
002D 185 ; 0 otherwise 
002D 186 ; 
002D 187 ; SIDE EFFECTS: 
002D 188 ; 
002D 189 ; 
002D 190 ;-- 
002D 191 
0000 Base 13% «ENTRY PASSUNDEFINED_G, “M<> ; Entry point 
50 04 86C 7D b05F 194 mMOvVa @4(AP), RO ; Test for quadword access 
50 04 0033 195 CLRL ; Initially FALSE 
00000800 8F 04 B8C OC 04 ED 0035 196 CMPZV «#4, #12, @4(AP), #*X800 ; Is it reserved? 
02 12 003F 197 BNEQ 10$ ; No 
50 Dé 0041 198 INCL RO ; Yes 
04 0043 199 10$: RET ; End of routine PASSUNDEF INED_G 
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001 PASSUNDEFINED_H = Return true if H’ float ae 7 91395i89 LPASRTL. SRE JPASUNDEF I .MARS 1 (6) | 
aed 01 ai: ~-SBTTL PASSUNDEFINED_H = Return true if H_ floating argument is reserved 
ore 08 3 FUNCTIONAL DESCRIPTION: 
044 05 ; This procedure returns BOOLEAN TRUE (1) if its argument is a reserved 
Spee 86 ; floating operand, otherwise BOOLEAN FALSE (0). 
Spee 88 ; CALLING SEQUENCE: 
Mee 19 ; Result.wv.v = PASSUNDEFINED_H (Quad.rh.r) 
Bate \¢ ; FORMAL PARAMETERS: 
044 15: 
0044 14 ; Quad - H floating argument 
0044 15 ; 
0044 16 ; IMPLICIT INPUTS: 
0044 7; 
0044 18 ; NONE 
0044 19 ; 
0044 220 ; IMPLICIT OUTPUTS: 
0044 221; 
0044 $55 3 NONE 
0044 a2 8 
0044 224 ; ROUTINE VALUE: 
0044 225; 
0044 226; 1 if the argument is a reserved operand 
0044 227; 0 otherwise 
0044 228 ; 
0044 229 ; SIDE EFFECTS: 
0044 230 ; 
0044 231; 
0044 232 ;-- 
0044 233 
0000 Rhee See -ENTRY PASSUNDEFINED_H, “*“M<> ; Entry point 
51 04 AC DO 0046 236 MOVL 4(AP), R1 ; Get address of argument | 
OC Al 05 O04A 237 TSTL 12(R15 ; Test last longword for access 
50 D4 Q004D 238 CLRL RO ; Initially FALSE 
8000 8F 61 B11 OO4F 239 CMPW (R1), #*x8000 : Is it reserved? 
02 12 0054 240 BNEQ 10$ ; No 
50 D6 0056 241 INCL RO ; Yes . 
04 Bae stg 10$: RET ; End of routine PASSUNDEF INED_H 
0059 Sti END ; End of module PASSUNDEF INED 
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Symbol table 

_D BAO 8 OR te RG 1 

fF (O tid RG 1 

-G 0000002D RG 1 

4 00000044 RG 1 


4-00 
NDEFI.MAR;1 (6) | 


PASSUNDEF INED 
PASSUNDEF INED 
PASSUNDEF INED 
PASSUNDEF INED 


PSECT name Allocation PSECT No. Attributes 


00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
00000059 ¢ 89.) O01 ¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


peewee cecccceeccceccoccce 


ey 


| 
| 
Phase Page faults CPU Time Elapsed Time | 
Initialization 1 00:00:00.07 00:00:01.02 
Command processing 72 00:00:00.62 00:00:04.69 
Pass 1 67 00:00:00.51 00:00:01.53 
Symbol table sort 0 00:00:00.00 00:00:00.00 
Pass 2 54 00:00:00.42 00:00:02.34 
Symbol table output 2 00:00:00.02 00:00:00.02 | 
Psect synopsis output 2 00:00:00.01 00:00:00.01 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 209 00:00:01.65 00:00:09.61 


The working set Limit was 900 pages. 4 : 

2721 bytes (6 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 4 non-local and 4 local symbols. 
244 source Lines were read in Pass 1, producing 19 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


peewee memo we ww eee neo oeeecen= + 
: Macro Library statistics ! 
eee eee see ee sete nee eee eee es + 

Macro Library name Macros defined 

-$255$DUA28: CSYSLIBIJSTARLET.MLB; 2 0 


0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE =SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:PASUNDEF 1/0BJ=O8J$:PASUNDEF I MSRC$:PASUNDEF 1 /UPDATE=(ENHS:PASUNDEF I) 
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